home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / VideoEasel.lha / Video Easel / CAMRexx / Soil.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-31  |  349b  |  16 lines
  1. /* Soil-Rule idea by Toffoli, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM moore centers
  5. return
  6.  
  7. MakePlane:
  8.    stable=(n_west | north | n_east) &          ,
  9.           (s_west | south | s_east) &          ,
  10.           (n_west | west  | s_west) &          ,
  11.           (n_east | east  | s_east)
  12.    new=center & stable
  13.    SETPLANE new
  14. return
  15.  
  16.